home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 33 / Tiger_Disk_033_1996-12_Tiger-Crew-Disk_de_Side_C.d64 / brain part iii (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  18KB  |  571 lines
  1. 3 rem das leben des brain part iv
  2. 5 rem public domain soft
  3. 6 rem (w) by peter diehm 8.2.92-14.2.92
  4. 8 poke 650,255:poke657,128:printchr$(14)""
  5. 9 poke 53280,0:poke 53281,0:print"[147]":goto1750:goto 1000
  6. 10 rem unterprogramm taste
  7. 11 printspc(30)"[158]-[212]aste-[146]"
  8. 12 get f$:iff$="" then 12
  9. 13 return
  10. 15 rem peter diehm
  11. 16 rem waldstr.58
  12. 17 rem 6149 rimbach 1
  13. 30 if f=1 then 1900
  14. 31 printspc(1)"[196]u hast keine [198]ackel !":goto 100
  15. 50 rem inventar
  16. 51 printspc(1)" [154] [201]nventar: [146]
  17. 52 [139] f[178]1 [167][153][166]1)"eine ascackel.
  18. 54 if b=1 thenprintspc(1)"eine [193]xt.
  19. 55 [139] c[178]1 [167][153][166]1)"einen ascisch.
  20. 56 if o=1 thenprintspc(1)"ein [207]ellaempchen.
  21. 58 [139] d[178]1 [167][153][166]1)"einen str$reizack.
  22. 60 if z=1 thenprintspc(1)"eine [193]ngel.
  23. 62 [139] l[178]1 [167][153][166]1)"eine (NULL)etropa (NULL)affeemaschine.
  24. 63 if m=1 thenprintspc(1)"ein [211]eil.
  25. 64 [139] lc[178]1 [167][153][166]1)"einen (NULL)chluessel."
  26. 67 [137] 100
  27. 80 [143] kommandos
  28. 81 [153][166]0)" nimm,nehme,lies,lese,iss,esse,
  29. 82 printspc(0)" trinke,inventar,inventory,klopfe,
  30. 83 [153][166]0)" kommandos,blicke,blick,gebe,gib,load,
  31. 84 printspc(0)" lade,save,speichere,schlaf,schlafe,
  32. 86 [153][166]0)" benutz,benutze,frage,grabe,sage,sag,
  33. 87 printspc(0)" schlage,schlag,druecke,drueck,n,s,w,
  34. 88 [153][166]0)" o,r,h,sicher,sichern.
  35. 100 printspc(1)"[204]etzte [197]ingabe:"i$""
  36. 101 input" [158] -=> [146] ";i$
  37. 102 if len(i$)=2 then 138
  38. 103 if i$="sichern" or i$="sicher" then 1500
  39. 104 if i$="norden" then 820
  40. 105 if i$="sueden" then 860
  41. 106 if i$="westen" then 900
  42. 107 if i$="osten" then 940
  43. 108 if i$="hoch" or i$="rauf" then 195
  44. 109 if i$="runter" then 185
  45. 110 if i$="klopfe" or i$="klopf" then 800
  46. 111 if i$="kommandos" or i$="hilfe" then 80
  47. 112 if i$="inventar" or i$="inventory" then 50
  48. 113 if i$="schlaf" or i$="schlafe" then 700
  49. 114 if i$="load" or i$="lade" then 600
  50. 115 if i$="save" or i$="speichere" then 650
  51. 116 if i$="grab" or i$="grabe" then 1100
  52. 117 if len(i$)>1 then 150
  53. 118 if len(i$)=1 then 130
  54. 120 printspc(1)"[197]rst [197]ingeben dann [210]eturn !
  55. 122 [137] 100
  56. 130 [139] i$[178]"n" [167] 820
  57. 131 [139] i$[178]"s" [167] 860
  58. 132 [139] i$[178]"w" [167] 900
  59. 134 [139] i$[178]"o" [167] 940
  60. 138 [139] i$[178]"r" [167] 185
  61. 139 [139] i$[178]"h" [167] 195
  62. 145 [153][166]1)" str$iese atnbkuerzung verstehe ich nicht !"
  63. 146 [137]100
  64. 150 [141] 500
  65. 152 [143] verteilung
  66. 153 [139] v$[178]"nimm" [176] v$[178]"nehme" [167] 300
  67. 154 [139] v$[178]"lies" [176] v$[178]"lese" [167] 370
  68. 155 [139] v$[178]"schlag" [176] v$[178]"schlage" [167] 400
  69. 156 [139] v$[178]"inventar" [176] v$[178]"inventory" [167] 50
  70. 157 [139] v$[178]"hilfe" [176] v$[178]"kommandos" [167] 80
  71. 158 [139] v$[178]"blicke" [176] v$[178]"blick" [167] 1000
  72. 160 [139] v$[178]"gebe" [176] v$[178]"gib" [167] 450
  73. 162 [139] v$[178]"load" [176] v$[178]"lade" [167] 600
  74. 163 [139] v$[178]"save" [176] v$[178]"speichere" [167] 650
  75. 165 [139] v$[178]"schlaf" [176]  v$[178]"schlafe" [167] 700
  76. 166 [139] v$[178]"benutz" [176] v$[178]"benutze" [167] 720
  77. 169 [139] v$[178]"klopfe" [176] v$[178]"klopf" [167] 800
  78. 170 [139] v$[178]"trink" [176] v$[178]"trinke" [167] 1130
  79. 172 [139] v$[178]"frage" [176] v$[178]"frag" [167] 220
  80. 173 [139] v$[178]"sage" [176] v$[178]"sag" [167] 250
  81. 175 [139] v$[178]"grab" [176] v$[178]"grabe" [167] 1100
  82. 178 [139] v$[178]"iss" [176] v$[178]"esse" [167] 1130
  83. 180 [153][166]1)"str$as (NULL)erb kenne ich nicht !"
  84. 181 [137]100
  85. 185 [143] runter
  86. 187 [139] a[178]6 [175] la[178]1 [167]a[178]7:[137] 210
  87. 188 [139] a[178]24 [167] a[178]23:[137] 210
  88. 193 [153][166]1)"left$ier kannst du nicht runter !":[137] 100
  89. 195 [143] hoch
  90. 197 [139] a[178]7 [167] a[178]6:[137] 211
  91. 198 [139] a[178]23 [167] a[178]24:[137] 211
  92. 203 [153][166]1)"left$ier kannst du nicht hoch !":[137] 100
  93. 210 [153][166]1)"str$u gehst nach unten.":[137] 1300
  94. 211 [153][166]1)"str$u gehst nach oben.":[137] 1300
  95. 220 [143] frag
  96. 221 [139] a[178]14 [167] 3000
  97. 222 [139] a[178]18 [175] lc[178]0 [167] 3010
  98. 240 [153][166]1)"str$u hast vielleicht ascragen.":[137] 100
  99. 250 [143] sage
  100. 290 [153][166]1)"(NULL)eden ist silber, schweigen ist chr$old !":[137] 100
  101. 300 [143] nimm
  102. 302 [139] m[178]0 [175] a[178]5 [167]m[178]1:[137] 360
  103. 355 [153][166]1)"str$iesen chr$egenstand sehe ich nicht !":[137]100
  104. 360 [153][166]1)"str$u nimmst das (NULL)eil an dich !":[141]10:[137]1000
  105. 370 [143] lies
  106. 372 [139] a[178]8 [167]1220
  107. 390 [153][166]1)"str$as kannst du nicht lesen !":[137] 100
  108. 400 [143] schlag
  109. 402 [139] a[178]14 [167] 1400
  110. 404 [139] a[178]18 [175] lc[178]0 [167] 1800
  111. 440 [153][166]1)"str$ies verstoesst gegen die chr$enfer
  112. 442 printspc(1)"[203]onfenssion !":goto 100
  113. 450 rem gib
  114. 451 if a=14 then 1410
  115. 453 if a=18 then 3100
  116. 480 printspc(1)"[194]ehalt dein [218]eug lieber !":goto 100
  117. 499 end
  118. 500 for t=1 to len(i$)
  119. 510 if mid$(i$,t,1)=" " then 530
  120. 520 next t:o$="":v$="":return
  121. 530 v$=left$(i$,t-1)
  122. 540 o$=right$(i$,len(i$)-t)
  123. 550 return
  124. 600 rem load
  125. 601 if pd=3 thenprintspc(1)"[194]rain [208]art [201][214] [153] [204]oad [146]...
  126. 602 [139] pd[178]4 [167][153][166]1)"peekrain (NULL)art (NULL)  (NULL)oad wait...
  127. 603 input"  [198]ile [146] [206]ame ";c$
  128. 605 open1,8,4,"b3"+c$+",s,r"
  129. 607 input#1,a,b,c,d,e,f,o,l,m,w,z,n,s,la,lb,lc,ld,le,lf
  130. 620 close1:gosub10
  131. 621 goto1000
  132. 650 rem save
  133. 651 ifpd=3thenprintspc(1)"[194]rain [208]art [201][214] [156] [211]ave [146]":r$=chr$(13)
  134. 652 ifpd=4thenprintspc(1)"[194]rain [208]art [214] [154] [211]ave [146]":r$=chr$(13)
  135. 653 input"  [198]ile [146] [206]ame ";c$
  136. 655 open2,8,15,"s:b1"+c$+"":close2
  137. 656 open1,8,4,"b3"+c$+",s,w"
  138. 657 print#1,a;r$;b;r$;c;r$;d;r$;e;r$;f;r$;o;r$;l;r$;m;r$;w;r$;z;r$;n;r$;s
  139. 658 print#1,la;r$;lb;r$;lc;r$;ld;r$;le;r$;lf
  140. 670 close1:gosub10
  141. 671 goto1000
  142. 700 rem schlaf
  143. 718 printspc(1)"[196]u schlaefst eine [210]unde...":goto 100
  144. 720 rem benutze
  145. 721 if a=22 and ld=1 then a=23:goto 1000
  146. 722 if a=9 and m=1 then 1240
  147. 723 if a=22 and o$="schluessel" then 3200
  148. 724 if a=24 and o$="fackel" then 30
  149. 725 if o$="angel" then 1850
  150. 780 printspc(1)"[196]as kannst du nicht benutzen.":goto 100
  151. 800 rem klopfe
  152. 818 printspc(1)"[196]u klopfst an deinen [203]opf !":goto 100
  153. 820 rem norden
  154. 821 if a=1 thena=2:goto 856
  155. 822 if a=6 thena=1:goto 856
  156. 823 if a=4 thena=3:goto 856
  157. 825 if a=8 thena=9:goto 856
  158. 826 if a=15 thena=11:goto 856
  159. 827 if a=11 thena=12:goto 856
  160. 829 if a=14 thena=13:goto 856
  161. 832 if a=17 thena=16:goto 856
  162. 834 if a=20 thena=18:goto 856
  163. 836 if a=21 thena=19:goto 856
  164. 837 if a=22 thena=20:goto 856
  165. 855 printspc(1)"[196]orthin fuehrt [158] kein [146] [215]eg.":goto100
  166. 856 printspc(1)"[196]u lauefst nach [206]orden...":goto 1300
  167. 857 printspc(1)"[196]u gehst [210]ichtung [211]ueden...":goto 1300
  168. 858 printspc(1)"[196]u gehst nach [207]sten.":goto 1300
  169. 859 printspc(1)"[196]u marschierst nach [207]sten...":goto 1300
  170. 860 rem sueden
  171. 861 if a=2 thena=1:goto 857
  172. 862 if a=1 thena=6:goto 857
  173. 863 if a=3 thena=4:goto 857
  174. 865 if a=9 thena=8:goto 857
  175. 866 if a=11 thena=15:goto 857
  176. 867 if a=12 thena=11:goto 857
  177. 869 if a=13 thena=14:goto 857
  178. 872 if a=16 thena=17:goto 857
  179. 874 if a=18 thena=20:goto 857
  180. 876 if a=19 thena=21:goto 857
  181. 877 if a=20 thena=22:goto 857
  182. 880 goto 855
  183. 900 rem westen
  184. 901 if a=4 thena=1:goto 858
  185. 903 if a=3 thena=2:goto 858
  186. 904 if a=5 thena=4:goto 858
  187. 906 if a=8 thena=7:goto 858
  188. 908 if a=11 thena=10:goto 858
  189. 910 if a=13 thena=11:goto 858
  190. 911 if a=14 thena=15:goto 858
  191. 913 if a=18 thena=16:goto 858
  192. 914 if a=19 thena=18:goto 858
  193. 916 if a=20 thena=17:goto 858
  194. 917 if a=21 thena=20:goto 858
  195. 918 if a=23 thena=22:goto 858
  196. 939 goto 855
  197. 940 rem osten
  198. 941 if a=1 thena=4:goto 859
  199. 943 if a=2 thena=3:goto 859
  200. 944 if a=4 thena=5:goto 859
  201. 946 if a=7 thena=8:goto 859
  202. 948 if a=10 thena=11:goto 859
  203. 950 if a=11 thena=13:goto 859
  204. 951 if a=15 thena=14:goto 859
  205. 953 if a=16 thena=18:goto 859
  206. 954 if a=18 thena=19:goto 859
  207. 956 if a=17 thena=20:goto 859
  208. 957 if a=20 thena=21:goto 859
  209. 958 if a=22 and ld=1 then a=23:goto 859
  210. 999 goto 855
  211. 1000 rem raueme
  212. 1001 print"[147]"
  213. 1002 printspc(1)"       [196]as [154] [204]eben [146] des [194]rain !
  214. 1003 [139] pd[178]4[167][153][166]1)" (NULL)art right$(NULL) peekrain auf (NULL)reta.
  215. 1004 if pd=5thenprintspc(1)" [208]art [214] [194]rain auf dem [207]lymp !
  216. 1005 [129]i[178]1[164]20:[153]"--";:[130]
  217. 1010 [139] a[178]1 [167] 2000:[143] kreta
  218. 1011 [139] a[178]2 [167] 2040
  219. 1012 [139] a[178]3 [167] 2060
  220. 1014 [139] a[178]4 [167] 2080
  221. 1017 [139] a[178]5 [167] 2100
  222. 1019 [139] a[178]6 [167] 2120
  223. 1023 [139] a[178]7 [167] 2140
  224. 1025 [139] a[178]8 [167] 2160
  225. 1026 [139] a[178]9 [167] 2180
  226. 1027 [139] a[178]10 [167] 2200
  227. 1028 [139] a[178]11 [167] 2220
  228. 1030 [139] a[178]12 [167] 2240
  229. 1032 [139] a[178]13 [167] 2260
  230. 1033 [139] a[178]14 [167] 2280
  231. 1034 [139] a[178]15 [167] 2300
  232. 1035 [143] olymp
  233. 1036 [139] a[178]16 [167] 2320
  234. 1038 [139] a[178]17 [167] 2340
  235. 1039 [139] a[178]18 [167] 2360
  236. 1040 [139] a[178]19 [167] 2380
  237. 1041 [139] a[178]20 [167] 2400
  238. 1042 [139] a[178]21 [167] 2420
  239. 1044 [139] a[178]22 [167] 2440
  240. 1046 [139] a[178]23 [167] 2460
  241. 1099 a[178]1:[137] 1000
  242. 1100 [143] grabe
  243. 1102 [139] a[178]6 [167] 1200
  244. 1128 [153][166]1)"str$u graebst einwenig herum.":[137] 100
  245. 1130 [143] esse
  246. 1159 [153][166]1)"(NULL)nd hoch das chr$las !":[137] 100
  247. 1200 [153][166]1)"str$u graebst einwenig und siehe da !
  248. 1202 printspc(1)"[197]in [204]och kommt zum [214]orschein.":la=1:gosub10:goto 1000
  249. 1220 printspc(1)"[193]uf dem [211]child steht:
  250. 1222 [153][166]1)"sys' left$aben sie ein (NULL)roblem ? (NULL)uchen (NULL)ie
  251. 1224 printspc(1)"einen [210]at oder einen [210]eifen ? [215]ollen
  252. 1226 [153][166]1)"sie wissen wie die valintracht am
  253. 1227 printspc(1)"[211]amstag spielt ? [207]der gar eine [211]chla=
  254. 1228 [153][166]1)"cht gewinnen ?
  255. 1230 printspc(1)"[206]a dann besuchen sie das [207]rakel von
  256. 1232 [153][166]1)"(NULL)ting !'"
  257. 1234 [153][166]1)"(NULL).(NULL). sys'atnuch (NULL)eleportation !'"
  258. 1240 [139] o$[178]"seil" [167] 1242
  259. 1241 [137] 780
  260. 1242 [153][166]1)"str$u seilst dich mit dem seiligen (NULL)eil
  261. 1244 printspc(1)"ab. [203]urz vor dem [194]oden reisst diese !
  262. 1245 [153][166]1)"vals passiert dir allerdings nichts,doch
  263. 1246 printspc(1)"du kannst nun nicht mehr zurueck.":a=10:gosub10
  264. 1247 goto1000
  265. 1300 fori=1to10:si=54272
  266. 1302 forii=0to24:poke si+ii,0:next
  267. 1304 poke si+1,15:poke si+5,9:poke 2+15,30
  268. 1305 poke si+24,15:poke si+4,129:poke si+4,65:poke si+4,129
  269. 1306 nexti:goto 1000
  270. 1400 printspc(1)"[196]u bist einer ! [215]illst eine alte [198]rau
  271. 1402 [153][166]1)"schlagen !":[137] 100
  272. 1410 [139] o$[178]"kaffeemaschine" [175] l[178]1 [167] 1415
  273. 1411 [139] o$[178]"fisch" [175] c[178]1 [167] 1425
  274. 1413 [153][166]1)"(NULL)reib dein (NULL)piel nicht zuweit mit der
  275. 1414 printspc(1)"[193]lten !":goto 100
  276. 1415 printspc(1)"[196]u gibst ihr die [203]affeemaschine !
  277. 1416 [153][166]1)"(NULL)ie freut sich sehr darueber und sagt:
  278. 1417 if c=5 then 1430
  279. 1418 printspc(1)"[158]'[197]cht cool [205]aker ! [211]o 'n [212]eil habe
  280. 1419 [153][166]1)"ich mir schon lange gewuescht, ey !
  281. 1420 printspc(1)"[197]y [205]aker ey jetzt werde ich dich auch
  282. 1422 [153][166]1)"gerne teleportieren ! peekringe mir da=
  283. 1423 printspc(1)"fuer einen [212]hunfisch !'":l=5
  284. 1424 goto 100
  285. 1425 if l=5 then 1430
  286. 1426 printspc(1)"[196]u gibst der [193]lten den [198]isch ! [211]ie sagt
  287. 1427 [153][166]1)"sys'valy (NULL)aker ey so ein (NULL)aesschen (NULL)affee
  288. 1428 printspc(1)"waer jetzt nicht schlecht !'":c=5:goto100
  289. 1430 printspc(1)"[158]'[207][203] [205]aker schnall dich an jetzt gehts
  290. 1432 [153][166]1)"los ! (NULL)o solls denn hingehen ?'
  291. 1435 printspc(1)"[154]'[206]ach [212]obago !'
  292. 1436 [153][166]1)"sys'(NULL)enn ich nicht ! right$ch kenn nur (NULL)obasco
  293. 1438 printspc(1)"[193]lter ! [215]ie waers mit dem [207]lymp ich
  294. 1440 [153][166]1)"haette da noch ein (NULL)laetzchen frei,
  295. 1442 printspc(1)"allerdings nur [196]ritter [203]lasse ?'
  296. 1444 [153][166]1)"cont'right$st gut ! right$n der (NULL)chule war ich
  297. 1445 printspc(1)"auch drei [202]ahre in der dritten !'
  298. 1446 [141]10
  299. 1450 [153]"load"
  300. 1452 [153][166]1)"(NULL)ie murmelt also einpaar ascormeln und
  301. 1455 printspc(1)"schon liegst du bewusstlos neben ihr
  302. 1456 [153][166]1)"und einige (NULL)inuten spaeter wachst du
  303. 1457 printspc(1)"in einem [204]abyrinth des [207]lymp auf."
  304. 1458 a=16:pd=5:gosub 1710
  305. 1459 goto 1000
  306. 1500 rem sichern
  307. 1502 printspc(1)"[196]er [211]pielstand wird nun gesichert und
  308. 1504 [153][166]1)"fuer die valwigkeit, bis zum naechsten
  309. 1505 printspc(1)"[211]piel fest gehalten !":gosub1710
  310. 1510 gosub10:goto 1000
  311. 1699 end
  312. 1700 open1,8,4,"brain score,s,r"
  313. 1702 input#1,f,b,c,o,e,d,n,pd,k,s,l,m,w,z,a,la,lb,lc,ld,le,lf,da,db,dc,dd,dm
  314. 1703 input#1,ga,gb,gc,cj,ge
  315. 1705 close1:return
  316. 1710 rem score save
  317. 1711 pd=2:r$=chr$(13)
  318. 1712 open2,8,15,"s:brain score":close2
  319. 1713 open1,8,4,"brain score,s,w"
  320. 1714 print#1,f;r$;b;r$;c;r$;o;r$;e;r$;d;r$;n;r$;pd;r$;k;r$;s;r$;l;r$;m
  321. 1715 print#1,w;r$;z;r$;a;r$;la;r$;lb;r$;lc;r$;ld;r$;le;r$;lf;r$;da;r$;db
  322. 1717 print#1,dc;r$;dd;r$;dm;r$;ga;r$;gb;r$;gc;r$;cj;r$;ge
  323. 1718 close1:return
  324. 1750 print"[147]":gosub1700
  325. 1752 if pd<4 thenprintspc(1)"[196]u willst wohl betruegen !":goto 1780
  326. 1755 if a<1 or a>15 and pd=4 then a=1:goto1000
  327. 1756 if a<16 and pd=5 then a=16:goto1000
  328. 1770 goto 1000
  329. 1780 printspc(1)"[196]u musst erst den ersten und die an=
  330. 1782 [153][166]1)"deren (NULL)eile vor diesem loesen ! right$st
  331. 1783 printspc(1)"doch logisch.":gosub10
  332. 1785 load"brain",8,1:run
  333. 1800 rem mann
  334. 1802 printspc(1)"[196]u nimmst einen [211]tein um auf [206]eptun
  335. 1804 [153][166]1)"ein zuschlagen !
  336. 1805 printspc(1)"[196]och [158] [211]top [146] !
  337. 1806 [153][166]1)"valr ist immer hin ein chr$ott und die sind
  338. 1807 printspc(1)"unsterblich ! [213]nd wer soll dann das
  339. 1808 [153][166]1)"atndventure loesen ? valtwa deine (NULL)ebens=
  340. 1810 printspc(1)"versicherung ?":goto 100
  341. 1850 printspc(1)"[208]etri [200]eil ! ":goto 100
  342. 1900 rem sieg
  343. 1902 printspc(1)"[196]u haelst die [198]ackel vorsichtig an
  344. 1904 [153][166]1)"die asclamme !"
  345. 1906 [153][166]1)"(NULL)nd siehe da sie faengt asceuer...
  346. 1908 printspc(1)"und im selben [205]oment steht du in
  347. 1910 [153][166]1)"atnlbertville und uebergibst die asclamme
  348. 1911 printspc(1)"an [205].[208]latini !":gosub10
  349. 1915 load"brain p.vi load",8,1:run
  350. 1999 end
  351. 2000 rem a=1
  352. 2002 printspc(1)"[196]u stehst in einer [194]ucht der [201]nsel
  353. 2003 [153][166]1)"(NULL)reta,das (NULL)chiff mit dem du hierher
  354. 2005 printspc(1)"geseglt bist, liegt leck am [211]trand.
  355. 2006 [153][166]1)"right$m (NULL)orden und (NULL)sten geht es in einen
  356. 2008 printspc(1)"[207]livenhain.
  357. 2010 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL),(NULL),(NULL).
  358. 2012 goto 100
  359. 2040 rem a=2
  360. 2042 printspc(1)"[196]u lauefst durch einen [207]livenhain,
  361. 2043 [153][166]1)"diese tragen gerade ascruechte.
  362. 2044 printspc(1)"[201]n den [193]esten sitzten [214]oegel, welche
  363. 2045 [153][166]1)"sich die (NULL)eile schmecken lassen.
  364. 2047 printspc(1)"[205]oegliche [210]ichtungen: [211]ueden,[207]sten.":goto 100
  365. 2060 rem a=3
  366. 2061 printspc(1)"[196]u fragst wozu die [204]eute in diesen
  367. 2063 [153][166]1)"(NULL)eitalter soviel (NULL)liven brauchen ? str$ie
  368. 2065 printspc(1)"[198]ritoese sowie die [208]ommes sind ja
  369. 2067 [153][166]1)"noch garnicht erfunden, wozu dann nur
  370. 2068 printspc(1)"das ganze [207]el ?"
  371. 2070 printspc(1)"[205]oegliche [210]ichtungen: [211]ueden,[215]esten.
  372. 2072 [137] 100
  373. 2080 [143] a=4
  374. 2081 [153][166]1)"right$m (NULL)esten ist eine peekucht, im (NULL)orden
  375. 2083 printspc(1)"ein [207]livenhain und in ostlche [210]ichtung
  376. 2084 [153][166]1)"fuehrt ein kleiner (NULL)fad. str$ie atnussen=
  377. 2086 printspc(1)"temperatur ist 25 [199]rad im [211]chatten.
  378. 2088 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL),(NULL),(NULL).":[137]100
  379. 2100 [143] a=5
  380. 2102 [153][166]1)"str$ies ist eine (NULL)liven (NULL)ackgasse, denn
  381. 2104 printspc(1)"vor dir steht ein [210]iesen [194]erg mit
  382. 2105 [153][166]1)"(NULL)aecken voller (NULL)liven. (NULL)nd du dachtest
  383. 2106 printspc(1)"bis jetzt immer es gaebe nur einen
  384. 2108 [153][166]1)"peekutterberg. (NULL)as die valchr$ wohl dazu sagt?
  385. 2109 if m=0 thenprintspc(1)"[196]u [158] siehst: [146] ein [211]eil."
  386. 2110 printspc(1)"[205]oegliche [210]ichtung: [215]esten."
  387. 2112 goto 100
  388. 2120 rem a=6
  389. 2121 if la=1 then 2130
  390. 2122 printspc(1)"[196]u lauefst den wunderbaren [211]andstrand
  391. 2123 [153][166]1)"entlang. str$ieser nimmt ein valnde an
  392. 2125 printspc(1)"einer [198]elswand, am [194]oden ist der [211]and
  393. 2126 [153][166]1)"leicht auf geschuettet."
  394. 2127 [153][166]1)"(NULL)oegliche (NULL)ichtung: (NULL)orden.":[137] 100
  395. 2130 [143] a=6/b
  396. 2131 [153][166]1)"(NULL)or dir tut sich ein kleines (NULL)och im
  397. 2132 printspc(1)"[211]and auf, du koenntest hier locker
  398. 2133 [153][166]1)"runter steigen.
  399. 2134 printspc(1)"[205]oegliche [210]ichtungen: [206]orden,runter.":goto 100
  400. 2140 rem a=7
  401. 2142 printspc(1)"[196]u stehst unter dem [211]andstrand in einer
  402. 2143 [153][166]1)"left$oehle, im (NULL)sten siehst du den atnusgang
  403. 2145 printspc(1)"oberhalb von dir ist ein [204]och, durch
  404. 2146 [153][166]1)"welches du zurueck nach oben kannst.
  405. 2148 printspc(1)"[205]oegliche [210]ichtungen: [200]och,[207]sten.
  406. 2150 [137] 100
  407. 2160 [143] a=8
  408. 2161 [153][166]1)"str$u stehst vor einem left$oehleneingang,
  409. 2164 printspc(1)"nach [206]orden fuehrt ein schmaler rasch
  410. 2165 [153][166]1)"ansteigender (NULL)eg auf eine (NULL)lippe.
  411. 2167 printspc(1)"[214]or dir steht ein [211]child."
  412. 2169 printspc(1)"[205]oegliche [210]ichtungen: [206]orden,[215]esten.":goto 100
  413. 2180 rem a=9
  414. 2182 printspc(1)"[196]u kommst dir wie [212]arzan vor, der mit
  415. 2184 [153][166]1)"seinen chr$orillas die ahnungslosen valx=
  416. 2186 printspc(1)"peditionsmitglieder angreift !
  417. 2188 [153][166]1)"str$och lassen wir die trauemereien, am
  418. 2190 printspc(1)"[193]nfang der [203]lippe weit unten siehst du
  419. 2192 [153][166]1)"einen (NULL)eg."
  420. 2193 [153][166]1)"(NULL)oegliche (NULL)ichtung: (NULL)ueden.":[137] 100
  421. 2200 [143] a=10
  422. 2202 [153][166]1)"str$u stehst am ascuss der (NULL)lippe, ein (NULL)eg
  423. 2204 printspc(1)"fuehrt nach [207]sten, zu einem [212]empel
  424. 2205 [153][166]1)"hinauf !
  425. 2206 printspc(1)"[196]ort scheint wohl das [207]rakel zu wohnen
  426. 2208 [153][166]1)"da du hoffst das es eine huepsche ascrau
  427. 2210 printspc(1)"ist kaemmst du dir dein verklebtes
  428. 2211 [153][166]1)"left$aar !"
  429. 2212 [153][166]1)"(NULL)oegliche (NULL)ichtung: (NULL)sten.":[137] 100
  430. 2220 [143] a=11
  431. 2222 [153][166]1)"str$u stehst vor dem (NULL)empel valingang, es
  432. 2223 printspc(1)"ist ein makedonischer [211]auelen [212]empel.
  433. 2224 [153][166]1)"str$u erinnerst dich an den grossen (NULL)ake=
  434. 2225 printspc(1)"donischen [200]errscher [193]lexander den
  435. 2228 [153][166]1)"chr$rossen der mit seinem left$eer bis nach
  436. 2230 printspc(1)"[201]ndien vorgestossen war.
  437. 2232 [153][166]1)"str$u kannst in suedliche (NULL)ichtung und
  438. 2233 printspc(1)"oestliche [210]ichtung in den [212]empel gehen.
  439. 2235 [153][166]1)"(NULL)oegliche (NULL)ichtungen: alle.
  440. 2237 goto 100
  441. 2240 rem a=12
  442. 2241 printspc(1)"[196]u lauefst die [212]empelmauer entlang
  443. 2243 [153][166]1)"nach (NULL)orden. str$a diese unendlich er=
  444. 2244 printspc(1)"scheint drehst du dich um, um zurueck
  445. 2245 [153][166]1)"zu gehen.
  446. 2247 printspc(1)"[205]oegliche [210]ichtungen: [211]ueden.":goto 100
  447. 2260 rem a=13
  448. 2261 printspc(1)"[196]u stehst im [212]empel, dieser ist an die
  449. 2264 [153][166]1)"6 m hoch und 100 m lang. str$ie str$ecke ist
  450. 2265 printspc(1)"mit [211]chlachtzenen von [193]lexander dem
  451. 2266 [153][166]1)"chr$rossen verziert.
  452. 2267 printspc(1)"[197]in seltsamer [196]uft steigt dir in die
  453. 2268 [153][166]1)"(NULL)ase,er kommt aus suedlicher (NULL)ichtung.
  454. 2270 printspc(1)"[205]oegliche [210]ichtungen: [211]ueden,[215]esten."
  455. 2272 goto 100
  456. 2280 rem a=14
  457. 2281 printspc(1)"[214]or dir sitzt auf einem [211]tein das
  458. 2283 [153][166]1)"(NULL)rakel, es hat schwarzes kurzes left$aar,
  459. 2285 printspc(1)"diese ist mit [211]chaumfestiger ver=
  460. 2286 [153][166]1)"staerkt. (NULL)leine (NULL)hren, huepsche (NULL)ase,
  461. 2287 printspc(1)"und ist etwa 100 [202]ahre alt.
  462. 2288 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)orden,(NULL)esten.
  463. 2290 goto 100
  464. 2300 rem a=15
  465. 2302 printspc(1)"[196]u stehst vor einem [207]pferaltar, von
  466. 2303 [153][166]1)"einem (NULL)pfer ist nichts zu sehen !
  467. 2305 printspc(1)"[197]in [199]ang fuehrt nach [207]sten, ein ander=
  468. 2306 [153][166]1)"er nach (NULL)orden.
  469. 2310 printspc(1)"[205]oegliche [210]ichtungen: [206]orden,[207]sten.":goto 100
  470. 2320 rem a=16/olymp
  471. 2322 printspc(1)"[196]u stehst im [204]abyrinth des [207]lymp, das
  472. 2323 [153][166]1)"reimt sich sogar ! (NULL)nd was sich reimt
  473. 2324 printspc(1)"ist gut !
  474. 2325 [153][166]1)"str$u fuehlst das das asceuer hier ganz in
  475. 2326 printspc(1)"der [206]aehe ist. [194]esser gesagt du bild=
  476. 2327 [153][166]1)"est es dir ein.
  477. 2328 printspc(1)"[198]aengt ja gut an der letzte [208]art !"
  478. 2330 printspc(1)"[205]oegliche [210]ichtungen: [211]ueden,[207]sten."
  479. 2332 goto 100
  480. 2340 rem a=17
  481. 2341 printspc(1)"[196]u schlenderst so durch das [204]abyrith
  482. 2342 [153][166]1)"wie einst (NULL)ac (NULL)an. str$abei hoerst du
  483. 2344 printspc(1)"[215]alkmann '[215]hy [211]hould [201] cry for you ?'.
  484. 2345 [153][166]1)"str$as wuerde ich jedenfalls hoeren, aber
  485. 2346 printspc(1)"das zaehlt ja nicht ! [200]ast du eigent=
  486. 2347 [153][166]1)"lich gemerkt das der (NULL)ext beim vort=
  487. 2348 printspc(1)"schreiten des [193]dventure immer mehr ge=
  488. 2349 [153][166]1)"labber enthaelt ?"
  489. 2350 [153][166]1)"(NULL)oegliche (NULL)chtungen: (NULL)orden,(NULL)sten.":[137] 100
  490. 2360 [143] a=18
  491. 2361 [139] lc[178]1 [167] 2370
  492. 2362 [153][166]1)"str$u stehst nun vor einem alten (NULL)ann, er
  493. 2363 printspc(1)"stellt sich dir als [206]eptun vor, dem
  494. 2364 [153][166]1)"chr$ott des (NULL)eeres. str$u ein ueberzeugter
  495. 2365 printspc(1)"[195]hrist faengst gleich ein [199]espraech
  496. 2366 [153][166]1)"ueber die (NULL)ielgoetterei an. valr sagt:
  497. 2367 printspc(1)"'[215]enn du mir was gibts was zu einem
  498. 2368 [153][166]1)"(NULL)eptun gehoert, gebe ich dir etwas
  499. 2369 printspc(1)"wichtiges'":printspc(1)"[205]oegliche [210]ichtungen: [211],[215],[207].":goto100
  500. 2370 printspc(1)"[196]er alte [205]ann der vor einigen [193]ugen=
  501. 2371 [153][166]1)"blicke noch hier gesessen hat ist ver=
  502. 2372 printspc(1)"schwunden. [193]usser einer [208]fuetze mit
  503. 2374 [153][166]1)"(NULL)asser ist nichts zurueck geblieben."
  504. 2375 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL),(NULL),(NULL).":[137] 100
  505. 2380 [143] a=19
  506. 2381 [153][166]1)"(NULL)chon ne tolle (NULL)ache so ein (NULL)abyrinth
  507. 2383 printspc(1)"du ueberlegst ob du sowas nicht auch
  508. 2384 [153][166]1)"im (NULL)orgartens deines left$auses bauen
  509. 2385 printspc(1)"solltest um deine [199]lauebiger abzu=
  510. 2386 [153][166]1)"halten."
  511. 2387 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)ueden,(NULL)esten.":[137] 100
  512. 2400 [143] a=20
  513. 2402 [153][166]1)"str$u stehst auf einer (NULL)reuzung, im
  514. 2404 printspc(1)"[211]ueden siehst du eine [212]uer. [215]er kennt
  515. 2405 [153][166]1)"sich aus in diesem left$aus ?
  516. 2406 printspc(1)"[215]ie in der ersten [210]eihe kommst du dir
  517. 2408 [153][166]1)"hier aber nicht vor.
  518. 2410 printspc(1)"[205]oegliche [210]ichtungen: alle.
  519. 2412 [137] 100
  520. 2420 [143] a=21
  521. 2422 [153][166]1)"str$u stehst immer noch im (NULL)abyrinth, das
  522. 2423 printspc(1)"nicht zu verwechseln ist mit [203]orinth.
  523. 2424 [153][166]1)"(NULL)it der left$and wischst du dir ueber die
  524. 2425 printspc(1)"mit [211]chweissperlen ueberzogene [211]tirn.
  525. 2427 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)orden,(NULL)esten.":[137] 100
  526. 2440 [143] a=22
  527. 2441 [139] ld[178]1 [167] 2450
  528. 2442 [153][166]1)"str$u stehst vor einer (NULL)uer, auf einem
  529. 2443 printspc(1)"[211]child steht: '[212]agungsraum des inter=
  530. 2444 [153][166]1)"nationalen (NULL)lympischen (NULL)omites'.
  531. 2445 printspc(1)"[205]oegliche [210]ichtung: [206]orden.":goto 100
  532. 2450 rem a=22/b
  533. 2452 printspc(1)"[196]u stehst vor einer offenen [212]uer, auf
  534. 2453 [153][166]1)"einem (NULL)child liest du:'(NULL)agungsraum des
  535. 2454 printspc(1)"internationalen [207]lympischen [203]omites'.
  536. 2455 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)orden,(NULL)sten.":[137] 100
  537. 2460 [143] a=23
  538. 2461 [153][166]1)"str$u stehst vor einer tausend stuffigen
  539. 2463 printspc(1)"[212]reppe, an ihrem [197]nde siehst du ein
  540. 2464 [153][166]1)"(NULL)icht ! str$ie (NULL)pannung steigt ! str$rum
  541. 2465 printspc(1)"einwenig [215]erbung: ' [201]ch heisse nicht
  542. 2466 [153][166]1)"(NULL)ueller, spiele aber am liebsten:
  543. 2467 printspc(1)"'[207]st [201]ndien [195]ompany' von [208]eter [196]iehm.":fori=1to7000:next
  544. 2468 printspc(1)"[205]oegliche [210]ichtungen: [215]esten,[200]och.":goto 100
  545. 2480 rem a=24
  546. 2481 printspc(1)"[196]u bist am [218]iel deiner [215]uensche, vor
  547. 2483 [153][166]1)"dir lodert das olympische asceuer, zwar
  548. 2485 printspc(1)"auf [211]parflamme ! [193]ber es lodert !
  549. 2487 [153][166]1)"(NULL)un ist billiger (NULL)at teuer !
  550. 2490 printspc(1)"[205]oegliche [210]ichtung: runter.":goto 100
  551. 3000 printspc(1)"[196]u fragst: [154]'[197]y boh ey ist das alles
  552. 3002 [153][166]1)"echt ?'
  553. 3003 printspc(1)"[211]ie sagt:[158]'[197]y [205]aker ey willst du mich
  554. 3005 [153][166]1)"anbaggern oder das atndventure loesen.":[137] 100
  555. 3010 [153][166]1)"str$u fragst:cont'left$ey atnlter wo geht es denn
  556. 3011 printspc(1)"hier zum [193]usgang ?'
  557. 3012 [153][166]1)"sys'(NULL)eine atnhnung ! str$en (NULL)uche ich schon
  558. 3013 printspc(1)"vierzig [202]ahre !'":goto 100
  559. 3100 if o$="dreizack" and d=1 then 3110
  560. 3102 printspc(1)"[205]an was braucht ein [205]eeres [199]ott wohl ?
  561. 3103 [153][166]1)"valinen str$re..ack ! (NULL)as sonst ?
  562. 3105 printspc(1)"[201]ch hab nichts gesagt !
  563. 3108 [137] 100
  564. 3110 [153][166]1)"str$u gibst (NULL)eptun den str$reizack, dieser
  565. 3111 printspc(1)"nimmt ihn an sich stuerzt sich auf
  566. 3112 [153][166]1)"dich und...":[129]i[178]1[164]4000:[130]
  567. 3113 [153][166]1)"(NULL)nd gibt dir einen (NULL)chluessel !":lc[178]1:[141]10:[137] 1000
  568. 3200 [139] lc[178]1 [167] 3210
  569. 3202 [153][166]1)"str$u hast keinen (NULL)chluessel !":[137] 100
  570. 3210 [153][166]1)"str$u oeffnest die (NULL)uer !":ld[178]1:[141]10:[137]1000
  571.